/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / gpl / turtdemo.gpl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1b 62 30 1b 63 30 01 12 | d7 44 74 6d 47 50 4c 00 |.b0.c0..|.DtmGPL.|
|00000010| 61 00 15 27 20 2a 20 2a | 20 2a 20 2a 20 2a 20 2a |a..' * *| * * * *|
|00000020| 20 2a 20 2a 20 2a 20 2a | 00 15 27 20 2a 20 20 20 | * * * *|..' *   |
|00000030| 54 55 52 54 4c 45 2d 44 | 45 4d 4f 20 20 20 2a 00 |TURTLE-D|EMO   *.|
|00000040| 15 27 20 2a 20 2a 20 2a | 20 2a 20 2a 20 2a 20 2a |.' * * *| * * * *|
|00000050| 20 2a 20 2a 20 2a 00 07 | 50 41 50 45 52 20 31 00 | * * *..|PAPER 1.|
|00000060| 07 50 45 4e 44 4f 57 4e | 00 02 44 4f 00 07 20 20 |.PENDOWN|..DO..  |
|00000070| 49 4e 4b 20 30 00 05 20 | 20 7a 3d 35 00 06 20 20 |INK 0.. | z=5..  |
|00000080| 77 3d 36 30 00 06 20 20 | 6c 3d 37 30 00 08 20 20 |w=60..  |l=70..  |
|00000090| 52 45 50 45 41 54 fd ec | 00 0a 47 4f 53 55 42 20 |REPEAT..|..GOSUB |
|000000a0| 77 61 69 74 fd ec 00 05 | 43 4c 52 20 61 fd ec 00 |wait....|CLR a...|
|000000b0| 06 52 45 50 45 41 54 fd | ee 00 05 43 4c 52 20 62 |.REPEAT.|...CLR b|
|000000c0| fd ee 00 06 52 45 50 45 | 41 54 fd f0 00 06 4d 4f |....REPE|AT....MO|
|000000d0| 56 45 20 6c fd f0 00 06 | 54 55 52 4e 20 77 fd f0 |VE l....|TURN w..|
|000000e0| 00 05 49 4e 43 20 62 fd | ee 00 09 55 4e 54 49 4c |..INC b.|...UNTIL|
|000000f0| 20 62 3e 7a fd ee 00 07 | 54 55 52 4e 20 32 30 fd | b>z....|TURN 20.|
|00000100| ee 00 05 49 4e 43 20 61 | fd ec 00 0a 55 4e 54 49 |...INC a|....UNTI|
|00000110| 4c 20 61 3e 31 37 fd ec | 00 08 41 44 44 20 77 2c |L a>17..|..ADD w,|
|00000120| 33 30 fd ec 00 09 4d 55 | 4c 20 6c 2c 31 2e 35 fd |30....MU|L l,1.5.|
|00000130| ec 00 06 49 46 20 7a 3d | 35 fd ee 00 05 44 45 43 |...IF z=|5....DEC|
|00000140| 20 7a fd ec 00 05 45 4e | 44 49 46 fd ec 00 05 44 | z....EN|DIF....D|
|00000150| 45 43 20 7a 00 0d 20 20 | 55 4e 54 49 4c 20 77 3d |EC z..  |UNTIL w=|
|00000160| 31 35 30 00 0c 20 20 47 | 4f 53 55 42 20 77 61 69 |150..  G|OSUB wai|
|00000170| 74 00 07 20 20 43 4c 52 | 20 71 00 10 20 20 4c 4f |t..  CLR| q..  LO|
|00000180| 43 41 54 45 20 32 31 30 | 2c 31 39 30 00 08 20 20 |CATE 210|,190..  |
|00000190| 52 45 50 45 41 54 fd ec | 00 08 4d 4f 56 45 20 32 |REPEAT..|..MOVE 2|
|000001a0| 30 30 fd ec 00 07 54 55 | 52 4e 20 39 30 fd ec 00 |00....TU|RN 90...|
|000001b0| 06 4d 4f 56 45 20 35 fd | ec 00 07 54 55 52 4e 20 |.MOVE 5.|...TURN |
|000001c0| 38 35 fd ec 00 05 49 4e | 43 20 71 00 0c 20 20 55 |85....IN|C q..  U|
|000001d0| 4e 54 49 4c 20 71 3e 37 | 32 00 0c 20 20 47 4f 53 |NTIL q>7|2..  GOS|
|000001e0| 55 42 20 77 61 69 74 00 | 07 20 20 43 4c 52 20 63 |UB wait.|.  CLR c|
|000001f0| 00 08 20 20 52 45 50 45 | 41 54 fd ec 00 06 4d 4f |..  REPE|AT....MO|
|00000200| 56 45 20 63 fd ec 00 08 | 54 55 52 4e 20 31 33 35 |VE c....|TURN 135|
|00000210| fd ec 00 07 41 44 44 20 | 63 2c 35 00 0d 20 20 55 |....ADD |c,5..  U|
|00000220| 4e 54 49 4c 20 63 3e 33 | 30 35 00 06 20 20 63 3d |NTIL c>3|05..  c=|
|00000230| 37 37 00 08 20 20 52 45 | 50 45 41 54 fd ec 00 0a |77..  RE|PEAT....|
|00000240| 47 4f 53 55 42 20 77 61 | 69 74 fd ec 00 08 66 3d |GOSUB wa|it....f=|
|00000250| 4e 45 47 28 63 29 fd ec | 00 03 64 3d 32 fd ec 00 |NEG(c)..|..d=2...|
|00000260| 05 43 4c 52 20 77 fd ec | 00 10 54 55 52 54 4c 45 |.CLR w..|..TURTLE|
|00000270| 20 31 32 38 2c 31 33 30 | 2c 77 fd ec 00 0b 47 4f | 128,130|,w....GO|
|00000280| 53 55 42 20 73 74 65 72 | 6e fd ec 00 10 54 55 52 |SUB ster|n....TUR|
|00000290| 54 4c 45 20 33 38 34 2c | 31 33 30 2c 77 fd ec 00 |TLE 384,|130,w...|
|000002a0| 0b 47 4f 53 55 42 20 73 | 74 65 72 6e fd ec 00 10 |.GOSUB s|tern....|
|000002b0| 54 55 52 54 4c 45 20 32 | 35 36 2c 32 37 30 2c 77 |TURTLE 2|56,270,w|
|000002c0| fd ec 00 0b 47 4f 53 55 | 42 20 73 74 65 72 6e fd |....GOSU|B stern.|
|000002d0| ec 00 10 54 55 52 54 4c | 45 20 35 31 32 2c 32 37 |...TURTL|E 512,27|
|000002e0| 30 2c 77 fd ec 00 0b 47 | 4f 53 55 42 20 73 74 65 |0,w....G|OSUB ste|
|000002f0| 72 6e fd ec 00 08 41 44 | 44 20 63 2c 31 37 00 0d |rn....AD|D c,17..|
|00000300| 20 20 55 4e 54 49 4c 20 | 63 3e 32 39 38 00 0c 20 |  UNTIL |c>298.. |
|00000310| 20 47 4f 53 55 42 20 77 | 61 69 74 00 06 20 20 63 | GOSUB w|ait..  c|
|00000320| 3d 31 30 00 08 20 20 52 | 45 50 45 41 54 fd ec 00 |=10..  R|EPEAT...|
|00000330| 06 4d 4f 56 45 20 63 fd | ec 00 08 54 55 52 4e 20 |.MOVE c.|...TURN |
|00000340| 31 33 30 fd ec 00 07 41 | 44 44 20 63 2c 34 00 0d |130....A|DD c,4..|
|00000350| 20 20 55 4e 54 49 4c 20 | 63 3e 38 30 30 00 07 20 |  UNTIL |c>800.. |
|00000360| 20 49 4e 4b 20 31 00 12 | 20 20 54 55 52 54 4c 45 | INK 1..|  TURTLE|
|00000370| 20 33 32 30 2c 32 30 30 | 2c 30 00 06 20 20 63 3d | 320,200|,0..  c=|
|00000380| 31 30 00 08 20 20 52 45 | 50 45 41 54 fd ec 00 06 |10..  RE|PEAT....|
|00000390| 4d 4f 56 45 20 63 fd ec | 00 08 54 55 52 4e 20 31 |MOVE c..|..TURN 1|
|000003a0| 33 30 fd ec 00 07 41 44 | 44 20 63 2c 34 00 0d 20 |30....AD|D c,4.. |
|000003b0| 20 55 4e 54 49 4c 20 63 | 3e 38 30 30 00 0a 20 20 | UNTIL c|>800..  |
|000003c0| 50 41 55 53 45 20 33 30 | 00 04 4c 4f 4f 50 00 01 |PAUSE 30|..LOOP..|
|000003d0| 27 00 05 77 61 69 74 3a | 00 0a 20 20 50 41 55 53 |'..wait:|..  PAUS|
|000003e0| 45 20 31 30 00 05 20 20 | 43 4c 53 00 12 20 20 54 |E 10..  |CLS..  T|
|000003f0| 55 52 54 4c 45 20 33 32 | 30 2c 32 30 30 2c 30 00 |URTLE 32|0,200,0.|
|00000400| 06 52 45 54 55 52 4e 00 | 01 27 00 06 73 74 65 72 |.RETURN.|.'..ster|
|00000410| 6e 3a 00 06 20 20 65 3d | 31 30 00 08 20 20 52 45 |n:..  e=|10..  RE|
|00000420| 50 45 41 54 fd ec 00 06 | 4d 4f 56 45 20 65 fd ec |PEAT....|MOVE e..|
|00000430| 00 06 54 55 52 4e 20 66 | fd ec 00 07 41 44 44 20 |..TURN f|....ADD |
|00000440| 65 2c 64 00 0d 20 20 55 | 4e 54 49 4c 20 65 3e 31 |e,d..  U|NTIL e>1|
|00000450| 35 30 00 0a 20 20 41 44 | 44 20 77 2c 39 30 00 07 |50..  AD|D w,90..|
|00000460| 20 20 49 4e 43 20 64 00 | 06 52 45 54 55 52 4e 00 |  INC d.|.RETURN.|
|00000470| 00 1a 1b 62 31          |                         |...b1   |        |
+--------+-------------------------+-------------------------+--------+--------+